home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1995 October / Amiga-CD 1995 #10.iso / weitere_demos / adm / arexx / kopiere_adm.2_nach_adm.1.adm < prev    next >
Text File  |  1995-06-04  |  389b  |  28 lines
  1. /* $VER: Kopiere_ADM.2_nach_ADM.1.adm 1.0 (17.7.94)
  2.  
  3.    Übernimmt Adressen aus ADM.2 (Quelle) in ADM.1 (Ziel)
  4.  
  5.    Lediglich das Erstellungs-/Veränderungsdatum geht verloren.
  6.  
  7.    Geschrieben von Jan Geißler.
  8. */
  9.  
  10. OPTIONS RESULTS
  11.  
  12. ADDRESS ADM.2
  13. ADDRINMEM
  14. num = RESULT
  15. ACTIVATEFIRST
  16.  
  17. DO FOR num
  18.  
  19.    ADDRESS ADM.2
  20.    GETADDRESS ADM
  21.    ACTIVATENEXT
  22.  
  23.    ADDRESS ADM.1
  24.    NEWADDRESS ADM
  25. END
  26.  
  27. SAVE
  28.